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-- InternalNubControl .Mesa 
-- Edited by: 

Sandman on May 3, 1978 3:50 PM 

Barbara on July 20, 1978 4:49 PM 

DIRECTORY 

AUoDefs: FROM "altodefs" USING [PageSize], 
AltoFileDefs: FROM "a1 tof il edef s" USING [FA], 
ControlDefs: FROM "control defs" USING [ 

GFT, GlobalFrameHandle, Nul IGlobalFrame], 
DebugData: FROM "debugdata" USING [textwindow, userwindow], 
DebugMiscDefs: FROM "debugmiscdef s" USING [ 

DebugAbort, Debuglnit, DebugProceed, Quit], 
FSPDefs: FROM "fspdefs" USING [AddToNewZone], 
ImageDefs: FROM "imagedefs" USING [ 

AddFileRequest , FileRequest, ImageVersion , StopMesa], 
InternalNubDefs: FROM "internalnubdef s" USING [ 

DebuggerDebuggerlnstall , Install], 
lODefs: FROM "iodefs" USING [ 

ControlX, CR, DEL, LineOverf low, NewLine, NUL, NumberFormat , ReadChar, 

ReadID, ReadNumber, Rubout, SP, WriteChar, WriteNumber, WriteOctal, 

WriteString], 
LoaderDefs: FROM "loaderdefs" USING [Load, Loader. New, VersionMismatch] , 
LoaderUtilityDefs: FROM "loaderutil i tydef s" USING [Fi leNotFound] , 
MiscDefs: FROM "miscdefs", 
Mopcodes: FROM "mopcodes" USING [zKFCB], 
ProcessDefs: FROM "processdef s" USING [Aborted], 
RectangleDefs: FROM "rectangledef s" USING [ 

BMHandle, CreateRectangle, GetDef aul tBi tmap, ReallocateBitmap . 

RectanglesB, Rptr], 
SDDefs: FROM "sddefs" USING [sCal IDebugger] , 
SegmentDefs: FROM "segmentdef s" USING [ 

Def aul tVersion , FileSegmentHandle, Insuf f icientVM, LockFile, NewFile, 

Read, ReleaseFile, UnlockFile], 
StreamDefs: FROM "streamdefs" USING [ 

Append, CreateByteStream, CreateOisplayStream, GetDefaultKey , GetFA, 

JumpToFA, KeyStreams, Read, StreamHandle, Write], 
StringDefs: FROM "stringdefs" USING [ 

AppendChar, AppendString, Equi valentString , Inval idNumber] , 
SystemDefs: FROM "systemdefs" USING [Al locatePages , FreePages, HeapZone], 
TimeDefs: FROM "timedefs" USING [AppendDayTime, UnpackDT], 
WindowDefs: FROM "windowdefs" USING [ 

CreateDisplayWindow, GetCurrentDispl ayWindow, RepaintDispl ay Windows , 

SetCurrentDisplayWindow, WindowHandle, WindowsB]; 

InternalNubControl: PROGRAM 

IMPORTS DDptr: DebugData. DebugMiscDefs, FSPDefs, ImageDefs. 

InternalNubDefs, lODefs, LoaderDefs, LoaderUtilityDefs, ProcessDefs, 
RectangleDefs, SegmentDefs, StreamDefs, StringDefs, TimeDefs, WindowDefs, 
SystemDefs 

EXPORTS InternalNubDefs = 

BEGIN 

-- System Signals are converted to these to prevent NubCommand 

-- from catching user generated signals 

Delete: SIGNAL = CODE; -- nee Rubout 

StringTooLong: ERROR = CODE; -- nee LineOverflow 

BadFile: ERROR [badname: STRING] = CODE; -- nee Fi leNameError 

BadNumber: ERROR = CODE; -- nee Inval idNumber 

BadVersion: SIGNAL [badname: STRING] « CODE; -- nee VersionMismatch 

CallDebugger: PROCEDURE « 

MACHINE CODE BEGIN Mopcodes . zKFCB , SDDefs . sCal IDebugger END; 

level : CARDINAL *- 0; 

installed: BOOLEAN <- FALSE; 

useCommandLine, skiplmage: BOOLEAN <- TRUE; 

def aul tf rame: GlobalFrameHandle ♦- ControlDefs .Nul IGlobalFrame; 

GlobalFrameHandle: TYPE « ControlDefs .GlobalFrameHandl e; 

DoCommand: PROCEDURE - 
BEGIN OPEN ControlDefs; 
f: GlobalFrameHandle; 
p: PROCESS; 
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IF skiplmage THEN Skiplmage[]; 

WritePrompt[]; 

f ^ IF useCommandLine THEN LoadSystem[] ELSE Command[]; 

IF f # NullGlobalFranie THEN 

BEGIN p *- FORK StartModule[LOOPHOLE[f ]] ; JOIN p; END; 
IF install THEN 

BEGIN WritePrompt[]; WriteCommand[instan] ; SIGNAL Install; END; 
IF internallnstall THEN 

BEGIN WritePronipt[]; WriteConiniand[xstal 1] ; SIGNAL Internallnstall; END; 
END; 

StartModule: PROCEDURE [f: PROGRAM] « 
BEGIN 
BEGIN 

ENABLE ProcessDefs. Aborted, DebugMiscDef s .DebugAbort »> CONTINUE; 
IF ~LOOPHOLE[f, GlobalFrameHandle]. started THEN START f ELSE RESTART f; 
END; 
RETURN 
END; 

WritePrompt: PROCEDURE « 
BEGIN 

WriteEOL[]; 

THROUGH [1.. level] DO lODef s .Wri teChar[ ' /] ; ENDLOOP; 
RETURN 
END; 

Commands: TYPE = {new, start, read, write, debug, install, xstall, 
proceed, quit, octal, bitmap}; 

Wri teCommand: PROCEDURE [command: Commands] = 
BEGIN 
IODefs.WriteString[SELECT command FROM 

new => "New"L, 

start => "StarfL. 

read => "Read"L, 

write => "Write"L, 

debug => "Debug"L, 

install => "InstalV'L, 

xstall => "tXstalV'L. 

proceed => "Proceed"L, 

quit => "Quif'L, 

octal => "Octal "L, 

bitmap => "Bitmap pages: "L, 

ENDCASE => "?"L]; 
END; 

Command: PROCEDURE RETURNS [GlobalFrameHandle] = 
BEGIN OPEN lODefs; 
c: CHARACTER; 
f: GlobalFrameHandle; 
SELECT c*-ReadChar[] FROM 
•N, 'n «> 

BEGIN 

Wri teCommand [new]; 

f <- LoadModule[]; 

IF f j^ ControlDefs.NullGlobalFrame THEN defaultframe <- f; 

END; 

'S.'s => 
BEGIN 

Wri teCommand [start]; 
f *- getgframe[]; 
WriteEOL[]; 
RETURN[f]; 
END; 

'D, 'd «> 
BEGIN WriteCommand[debug]; confirm[]; CanDebugger[] ; END; 

•Q/q «> 
BEGIN WriteCommand[quit]; confirm[]; SIGNAL DebugMiscDef s .Quit; END; 

•P,'p «> 
BEGIN 
Wri teCommand [proceed ] ; 



InternalNubControl .mesa 



2-Sep-78 15:32:14 



Page 



conf irm[]; 

SIGNAL DebugMiscDefs.DebugProceed; 

END; 

•O.'o -> 
BEGIN 

Wri teConimancl[octal ] ; 
SELECT ReadChar[] FROM 

'R, 'r => BEGIN WriteCommancl[read]; Octa1Read[]; END; 
•W. 'w «> BEGIN WriteCommand[write]; OctalWri te[] ; END; 
ENDCASE «> WriteChar['?]; 
END; 

•I, 'i -> 

BEGIN WriteCommand[instan]; confirm[]; SIGNAL Install END; 

ControlX «> 
BEGIN 

WriteCoinmand[xstal 1]; 
conf irm[] ; 

SIGNAL Internallnstall ; 
END; 



•B, 'b -> 
BEGIN OPEN RectangleDefs; 
pages: CARDINAL; 

b: BMHandle = GetDef aul tBitmap[]; 
WriteCommand [bitmap]; 
pages <- ReadNumber[BMPages , 10 I 

lODefs.Rubout => ERROR Delete; 

StringDef s. Inval idNumber => ERROR BadNumber; 

lODefs.LineOverflow «> ERROR StringTooLong] ; 
pages ^ MIN[pages, 90D]; 
ReanocateBitmap[b , pages, BMWordsPerLine 

I SegmentDef s , Insuff icientVM => BEGIN pages ♦- pages 
WindowDef s.RepaintDispl ayWindows[b]; 
BMPages <~ pages; 
END; 



2; RETRY END]; 



CR.SP =»> NULL; 

•? «> 
BEGIN 
WriteString["Commands are: 



'L]; 



Wri teCommand[new] ; 

WriteChar[' ,]; WriteChar[' 

WriteChar[' ,]; WriteChar[' 

WriteChar[' .]; WriteChar[' 

WriteChar[' ,]; WriteChar[' 

WriteChar[' ,]; WriteChar[' 

WriteChar[' ,]; WriteChar[' 

WriteChar[ ' , ] ; WriteChar[' 

WriteChar[' ,]; WriteChar[' 

END; 
ENDCASE => 

BEGIN WriteChar[c]; WriteChar[ ' ?] ; END; 
RETURN[ControlDefs. Null Global Frame] 
END; 



WriteCommand[start] ; 

WriteCommand[octal ] ; Wri teCommand[read] ; 
WriteCommand [octal ] ; Wri teCommand [write ] ; 
WriteCommand[ proceed]; 
WriteCommand[quit] ; 
Wri teCommand [debug]; 
WriteCommand[instal 1] ; 
WriteCommand[bitmap]; 



InstallDebugger : PROCEDURE [mode: (internal, external}] » 
BEGIN 

IF installed THEN WriteError[instal led] 
ELSE 
BEGIN 

IF useCommandLine THEN CleanUpCommandLine[] ; 
installed ^ TRUE; 
InitSwitches[]; 
SELECT mode FROM 

internal => InternalNubDef s .DebuggerDebuggerlnstal 1[]; 
ENDCASE «> InternalNubDefs.Instan[]; 
END; 
END; 



LoadModule: PROCEDURE RETURNS [g: Global FrameHandle] 
BEGIN 
name: STRING <r [40]; 
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ext: STRING ^ [10]; 

switches: STRING ^ [10]; 

i: CARDINAL ^ 0; 

get: PROCEDURE RETURNS [c: CHARACTER] » 

BEGIN 

IF i « idstring. length THEN RETURN[IODef s.NUL]; 

c ♦" iclstring[i]; 

i 4- i + 1; 

RETURN[c] 

END; 
IODefs.WriteString[" Filename: "L]; 
IODefs.ReadID[idstring I lODef s.Rubout «> ERROR Delete; 

lODefs.LineOverflow «> ERROR StringTooLong] ; 
GetToken[get , name, ext, switches]; 

IF ext. length « THEN StringDef s .AppendString[ext, "bcd"L]; 
StringDef s .AppendChar[name, ' .]; 
StringDef s. Appends tring[name, ext]; 
ProcessSwitches[ switches]; 
RETURN[LoadNew[name, f ramel inks]]; 
END; 

LoadNew: PROCEDURE [name: STRING, f ramel inks: BOOLEAN] 
RETURNS [g: Global FrameHandle] » 
BEGIN OPEN LoaderDefs; 
bed: SegmentDef s .FileSegmentHandle; 
bed <- LoaderDefs .Load[name 

1 BadFile, UNWIND => NULL; ANY => ERROR BadFi le[name]] ; 
g ♦- LoaderDefs. New[bcd, f ramel inks, FALSE 
1 BadFile. BadVersion. UNWIND «> NULL; 
LoaderDefs .VersionMismatch => 

BEGIN SIGNAL BadVersion[name] ; RESUME END; 
LoaderUtilityDefs.FileNotFound *=> ERROR BadFile[name]; 
ANY => ERROR BadFi 1 e[name]] ; 
IODefs.WriteString[" -- "L]; 
IODefs.WriteOctal[g]; 
WriteEOL[]; 
RETURN 
END; 

getgframe: PROCEDURE RETURNS [f: GlobalFrameHandle] = 
BEGIN OPEN ControlDefs. lODefs; 
WriteString[" Global frame: "L]; 
f <- ReadNumber[defaultframe, 8 1 

lODefs.Rubout => ERROR Delete; 

StringDef s.Inval idNumber => ERROR BadNumber; 

lODefs.LineOverflow => ERROR StringTooLong]; 
IF ControlDefs. GFT[f.gfi]. frame ff f THEN 

BEGIN 

WriteString[" not a global frame: "L]; 

SIGNAL DebugMiscDefs.DebugAbort 

END; 
defaultframe ^ f; 
RETURN 
END; 

idstring: STRING ^ [40]; 

confirm: PROCEDURE « 
BEGIN OPEN lODefs; 
WriteString[" [confirm] "L]; 
DO 

SELECT ReadChar[] FROM 
CR => EXIT; 
DEL => SIGNAL Delete; 
ENDCASE -> WriteChari'?]; 
ENDLOOP; 
WriteChar[CR]; 
RETURN 
END; 

WriteEOL: PROCEDURE - 
BEGIN OPEN lODefs; 
IF ~NewLine[] THEN Wri teChar[CR] ; 
RETURN 
END; 
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comcmRequest : short ImageDefs .FileRequest ^ [ 
body: short[fin:, name: "Com. Cm."], 
file: NIL, 

access: SegmentDef s.Read, 
link: ] ; 

Done: SIGNAL « CODE; 
Internallnstall: SIGNAL « CODE; 
Install: SIGNAL - CODE; 

install, internallnstall, start, command, framelinks: BOOLEAN; 

ProcessSwitches: PROCEDURE [s: STRING] - 
BEGIN 

i: CARDINAL; 

inverse: BOOLEAN ^ FALSE; 
FOR i IN [0. .s. length) DO 
SELECT s[i] FROM 

'c, 'C => BEGIN inverse <- FALSE; command *- TRUE END; 

'i, 'I => BEGIN inverse <- FALSE; install ^ TRUE END; 

'X, 'X => BEGIN inverse ^ FALSE; internallnstall *- TRUE END; 

's, 'S »> IF inverse THEN inverse ♦- start <- FALSE ELSE start ^ TRUE; 

'1, 'L => BEGIN inverse <- FALSE; framelinks ♦- FALSE END; 

'" => inverse <- TRUE; 

ENDCASE => inverse ^ FALSE; 
ENOLOOP; 
END; 

InitSwitches: PROCEDURE » 
BEGIN 

command <- internallnstall <- install ♦- FALSE; 
framelinks ♦- start <- TRUE; 
END; 

GetToken: PROCEDURE [ 

get: PROCEDURE RETURNS [CHARACTER], token, ext, switches: STRING] « 
BEGIN OPEN lODefs; 
s: STRING; 
c: CHARACTER; 

token. length <- ext. length ♦- switches . length <- 0; 
s ^ token; 

WHILE (c ^ get[]) # NUL DO 
SELECT c FROM 
SP, CR => 

IF token, length j? OR ext. length j^ OR switches .length ^ THEN RETURN; 
' . => s <- ext; 
'/ => s ♦- switches; 

ENDCASE => StringDefs.AppendChar[s, c]; 
ENDLOOP; 
RETURN 
END; 

fa: AltoFileDefs.FA; 

CleanUpCommandLine: PROCEDURE » 
BEGIN 

SegmentDef s .UnlockFile[ comcmRequest. f ile] ; 
SegmentDef s . ReleaseFile[comcmRequest .f ile] ; 
comcmRequest . file <- NIL; 
useCommandLine *- FALSE; 
RETURN 
END; 

LoadSystem: PROCEDURE RETURNS [user: Global FrameHandle] = 
BEGIN 
BEGIN 

ENABLE UNWIND «> CleanUpCommandLine[] ; 

In itSwitches[]; 

user ^ LoadUser[@fa I Done => GOTO done]; 

IF -start THEN user <- ControlDeFs . Nul IGlobal Frame; 
EXITS 

done »> 

BEGIN user ^ ControlDefs .Nul IGlobal Frame; CleanUpCommandLine[] END; 
END; 
RETURN 
END; 
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LoaclUser: PROCEDURE [fa: POINTER TO AUoFileDef s . FA] 
RETURNS [user: GlobalFrameHancne] ■ 
BEGIN OPEN lODefs, StreamDefs; 
com: StreamHandle; 
name: STRING <- [40]; 
ext: STRING <- [10]; 
switches: STRING ^ [10]; 
get: PROCEDURE RETURNS [c: CHARACTER] - 
BEGIN 

IF com.endof[com] THEN RETURN[NUL]; 
RETURN[com.get[com]]: 
END; 
com ♦- CreateByteStream[comcmRequest.f ile, Read]; 
BEGIN 

StreamDefs. JumpToFA[com, fa 1 ANY «> GO TO finished]; 
GetToken[get, name, ext, switches]; 
IF name. length = THEN GO TO finished; 
IF ext. length = THEN ext <~ "bcd"L; 
StreamDefs. GetFA[com, fa]; 
com.destroy[com] ; 
ProcessSwitches[ switches]; 
IF command THEN 
BEGIN 

ProcessSw itches [name]; 
user <r ControlDefs .NunGlobal Frame; 
END 
ELSE 
BEGIN 

WriteString[name] ; 
String Defs . Ap pen dChar[ name, ' . ]; 
StringDef s . Appends tring[name, ext]; 
user ^ LoadNew[name , framelinks]; 
END; 
EXITS 

finished => BEGIN com.destroy[com] ; SIGNAL Done; END; 
END; 
RETURN 
END; 

Skiplmage: PROCEDURE « 

BEGIN OPEN lODefs. StreamDefs; 

com: StreamHandle; 

name: STRING ♦■ [40]; 

ext: STRING <- [10]; 

switches: STRING ^ [10]; 

get: PROCEDURE RETURNS [c: CHARACTER] » 

BEGIN 

IF com.endof[com] THEN RETURN[NUL]; 

RETURN[com.get[com]]; 

END; 
skiplmage *- FALSE; 

IF comcmRequest.file « NIL THEN BEGIN useCommandLine ^ FALSE; RETURN END; 
SegmentDef s. LockFi 1e[comcmRequest. file]; 
InitSwitches[]; 

com <- CreateByteStream[comcmRequest .f ile , Read]; 
StreamDefs. GetFA[com, 0fa]; 
GetToken[get , name, ext, switches]; 
IF StringDef s .EquivalentString[ext, "image"L] THEN 
StreamDefs. GetFA[com, 6fa]; 
GetToken[get , name, ext, ext]; 

IF name. length ff THEN StreamDefs . JumpToFA[com, 0fa] 
ELSF useCommandLine <- FALSE; 
com. destroy[com] ; 
ProcessSw itches [switches] ; 
END; 

WriteHerald: PROCEDURE [herald: STRING] « 
BEGIN 

h: STRING ^ "Alto/Mesa Debugger 4.1 of "L; 
time: STRING ^ [18]; 
StringDefs.AppendString[herald, h]; 
TimeDef s.Ap pen dDayTime[ herald , 

TimeDef s .UnpackDT[ImageDefs . ImageVersion[] . time]] ; 
herald . length ♦- herald, length - 3; 
lODefs.Wr i teStr ing[herald]; 
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TimeDef s.AppendDayTime[time,TimeDefs.UnpackDT[[0,0]]]; 
time. length <- time. length - 3; 
WriteEOL[]; lODef s .WriteString[time] ; 
END; 

ErrorName: TYPE » {XXX, file, number, toolong, exit, diffver, installed}; 

WriteError: PROCEDURE [error: ErrorName] « 
BEGIN 
IODefs.WriteString[SELECT error FROM 

file »> "IFile: "L, 

number »> "lNumber"L, 

toolong «> "IString too long"L, 

exit => "Exiting top level Debuggerl"L, 

diffver => " referenced in different versions'^, 

installed ■> " Already Instal led T'L, 

ENDCASE => " XXX"L] 
END; 

InternalDebugCommand: PUBLIC PROCEDURE » 
BEGIN 

level ^ level + 1; 
DO 

BEGIN OPEN lODefs; 
DoCommand[ 1 

UNWIND => level <- level - 1; 

Rubout. Delete => BEGIN WriteError[XXX]; CONTINUE END; 
ProcessDefs. Aborted => CONTINUE; 
DebugMiscDefs.DebugAbort => CONTINUE; 
BadFile «> 
BEGIN 

WriteEOL[]; 
WriteError[f ile] ; 
WriteString[badname]; 
CONTINUE 
END; 
BadNumber «> 

BEGIN WriteEOL[]; WriteErrorCnumber] ; CONTINUE END; 
LineOverf low, StringTooLong => 

BEGIN WriteEOL[]; Wri teError[toolong] ; CONTINUE END; 
BadVersion --[badname: STRING] --=> 
BEGIN 

WriteEOL[]; 
WriteError[f ile] ; 
WriteString[ bad name]; 
WriteError [diffver]; 
RESUME 
END; 
DebugMiscDef s.Quit «> 
BEGIN 

IF level # 1 THEN GOTO abort; 
WriteError[exit] ; 
conf irm[] ; 

ImageDef s .StopMesa[] 
END; 
DebugMiscDef s .DebugProceed => EXIT; 
Install => GOTO install ; 
Internallnstall => GOTO xstall]; 
EXITS 
abort «> 
BEGIN 

level ^ level - 1; 
SIGNAL DebugMiscDefs.DebugAbort; 
END; 
dontquit, continue => NULL; 
install «> InstanDebugger[external]; 
xstall »> Instal lDebugger[internal ]; 
END; 

ENDLOOP; 
level ^ level - 1; 
RETURN 
END; 

rcount, waddress, raddress: CARDINAL ^ 0; 

OctalRead: PROCEDURE « 
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BEGIN OPEN lODefs; 

j: CARDINAL; 

n: INTEGER; 

i: INTEGER ^ -1; 

WriteString[" 0: "L]; 

waddress «- raddress ^ ReadNumber[raddress , 8 I 

lODefs.Rubout =»> ERROR Delete; 

StringDefs.InvalidNumber -> ERROR BadNumber; 

lODefs.LineOverflow «> ERROR StringTooLong] ; 
WriteString[" n(10): "L]; rcount ^ ReadNumber[rcount, 10 1 

lODefs.Rubout => ERROR Delete; 

StringDefs.InvalidNumber «> ERROR BadNumber; 

lODefs.LineOverflow -> ERROR StringTooLong]; 
FOR j IN [0. .rcount) 

DO 

IF (i <r i+l) MOD 8 » THEN 
BEGIN 

WriteEOL[]; 

WriteOctal[raddress + j]; 
WriteChar['/]; 
END; 

WriteChar[' ]; 

WriteNumber[n <- MEMORY[raddress + j], NumberFormat[8. FALSE .TRUE ,6]] ; 

WriteChar[IF n ~IN[0..7] THEN 'B ELSE ' ]; 

ENDLOOP; 
raddress ♦- raddress + rcount; 
END; 

OctalWrite: PROCEDURE « 
BEGIN OPEN lODefs; 
WriteString[" Q: "L]; 
waddress *- ReadNumber[waddress, 8 I 

lODefs.Rubout => ERROR Delete; 

StringDefs.InvalidNumber => ERROR BadNumber; 

lODefs.LineOverflow => ERROR StringTooLong]; 
WriteChar[SP]; Wri teChar[ '<-] ; WriteChar[SP] ; 
MEMORY[waddress] <- ReadNumber[MEMORY[waddress] , 8 I 

lODefs.Rubout => ERROR Delete; 

StringDefs.InvalidNumber => ERROR BadNumber; 

lODefs.LineOverflow => ERROR StringTooLong]; 
waddress ^ waddress + 1; 
RETURN 
END; 

InitWindows: PROCEDURE » 

BEGIN OPEN SegmentDefs, StreamDefs, WindowDefs, RectangleDef s; 
default: WindowHandle = GetCurrentOisplayWindow[]; 
usertypescript : STRING = "Mesa.Typescripf'L; 
rect: Rptr; 

rect <- CreateRectangle[GetDefaul tBitmap[], 40, 512, 0,256]; 
DDptr . textwindow <- CreateDispl ayWindow[f i le, rect, 

CreateDisplayStream[rect], GetDef aul tKey[] , NIL]; 
ReleaseFile[NewFile[user typescript, Read+Write+Append ,Defaul tVersion]],; 
rect ♦- CreateRectangle[GetDefaultBitmap[], 20. 512,20,256]; 
DDptr . userwindow <^- CreateDispl ayWindow[fi le. rect, 

CreateDisplayStream[rect] , GetDef aul tKey[] , usertypescript]; 
Se tCur r en tDi sp 1 ay Window[ default]; 
RETURN 
END; 

herald: STRING ^ [44]; 

BMPages: CARDINAL ^ 56; 
BMWordsPerLine: CARDINAL « 32; 

-- Main body 

START StreamDefs . KeyStreams ; -- Start keyboard process 
START RectangleDefs.RectanglesB[BMPages, BMWordsPerLine]; 
START WindowDefs.WindowsB[" Debug. Typescript."]; 
ImageDef s .AddFileReciuest[0comcmRe(]uest] ; 

STOP; 

FSPDef s . AddToNewZone[z: SystemDef s .HeapZone[] , length: Al toDef s .PageSize*4, 
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base: SystemDef s .AnocatePages[4] , deallocate: SystemDeFs .FreePages] ; 
RESTART RectangleDefs.RectanglesB; 
RESTART WindowDefs.WindowsB; 
START LoaderDefs. Loader; 
START DDptr; 

WriteHera1d[hera1d]; 

START DebugMiscDefs.DebugInit[herald]; 

InitWindows[]; 

DO InternalDebugCommand[ I DebugMiscDef s .DebugAbort »> CONTINUE] ENDLOOP; 

END... 



